Сколько раз данная цифра встречается в числе — Pascal(Паскаль)

uses crt;
var a,k,count,j:integer;
Begin
write('Chislo= ');
readln(a);
write('k= ');
readln(k);
count:=0;
Repeat
j:=a mod 10;
if j=k then inc(count);
a:=a div 10;
Until a=0;
 writeln(count);
 
End.